Pantograph 1

Either drag the blue point to move the mechanism or give the "Speed" slider (if visible) a non-zero value.  Note that you may need to Right-click on the blue point and select "Animation on" to reset it if it does not respond to the "Speed" slider at first.

Path

Button change

Hide trace

Clear trace

Trace off

ZoomIn[-10.56,-2.71,9.94,10.89]

Screen

set

Locus 1

Locus 2

Locus 3

Locus 4

I_1 = (4.078017878033114, 0.805182145791616)
H_1 = (4.102667739190467, 3.1222690945828617)
G_1 = (4.299866628449296, 2.382773259862252)
F_1 = (4.965412879697846, 2.382773259862252)
E_1 = (5.630959130946396, 3.713865762359352)
D_1 = (5.285861074743444, 0.3614846449592488)
B_1 = (6.074656631778764, 0.48473395074601755)
A_1 = (6.690903160712608, 4.330112291293194)
Z = (5.729558575575812, 4.551961041709376)
L = (4.4231159342360655, 2.70322145490785)
K = (4.4231159342360655, 4.379412013607903)
J = (3.270233187554481, 4.369603922350589)
I = (3.535720932571331, 1.1502802019945677)
poly1, i_2, j_1, k_1, l_1, z, a_2, b_2, d_2, e_2, f_2, g_2, h_2, i_3 = Polygon(I, J, K, L, Z, A_1, B_1, D_1, E_1, F_1, G_1, H_1, I_1)
B = Intersect(xAxis, yAxis)
CP_1 = 4 (slider from 0 to 10, step 0.1)
CD = 4 (slider from 0 to 10, step 0.1)
BC = 4 (slider from 0 to 10, step 0.1)
AB = 8 (slider from 0 to 10, step 0.1)
c = Circle(B, AB)
d = Circle(B, BC)
P_1 = Point(poly1)
e = Circle(P_1, CP_1)
C_1, C = Intersect(e, d)
a = Ray(C, P_1)
b = Ray(B, C)
A = Intersect(c, b)
f = Circle(C, CD)
D = Intersect(f, a)
g_1 = Segment(C, D)
h_1 = Line(D, b)
i = Line(A, g_1)
E = Intersect(i, h_1)
j = Line(B, P_1)
P_2 = Intersect(i, j)
k = Segment(A, E)
l = Segment(E, D)
m = Segment(B, C)
n = Segment(C, A)
p = Segment(E, P_2)
s = false
F = Intersect(n, k)
G = Intersect(yAxis, xAxis)
H = Intersect(yAxis, xAxis)
M = Intersect(n, g_1)
N = Intersect(n, g_1)
O = Intersect(l, k)
P = Intersect(g_1, l)
Q = Intersect(yAxis, xAxis)
t = Circle(C, P_1)
R = Intersect(t, g_1)
c_1 = Circle(A, P_2)
S = Intersect(c_1, p)
h = false
g = false
d_1 = Circle(A, P_2)
T = Intersect(d_1, p)
u = false
v = false
a_1 = Segment(D, P_1)
b_1 = Line(B, P_1)
U = Intersect(b_1, a_1)
P_3 = Mirror(D, E)
P_4 = Mirror(D, C)
e_1 = Segment(E, P_3)
f_1 = Segment(C, P_4)
i_1 = Line(P_4, P_3)
V = Intersect(i_1, f_1)
W = Intersect(i_1, e_1)
o = false
q = false
J_1 = (11.078578446721579, 7.928992020266834)
K_1 = (10.856729696305395, 4.625910625181438)
L_1 = (14.751407759167288, 4.625910625181438)
loc13 = Locus(P_2, P_1)
loc14 = Locus(P_3, P_1)
loc15 = Locus(E, P_1)
loc16 = Locus(P_4, P_1)
Speed = 0 (slider from -10 to 10, step 0.1)